#Область ОбработчикиСобытийФормы

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	Наименование = Параметры.ИмяОбъектаМетаданных;
	
	ПрочитатьЗначениеНаСервере();
	
КонецПроцедуры

#КонецОбласти

#Область ОбработчикиКомандФормы

&НаКлиенте
Процедура ЗаписатьИЗакрыть(Команда)
	
	ЗаписатьЗначениеНаСервере();
	Закрыть();

КонецПроцедуры

#КонецОбласти

#Область СлужебныеПроцедурыИФункции

&НаСервере
Процедура ПрочитатьЗначениеНаСервере()
	
	ИмяКонстанты = СтрЗаменить(Наименование, "Константа.", "");
	Значение = Константы[ИмяКонстанты].Получить();
	
	Элементы.Значение.ОграничениеТипа = Метаданные["Константы"][ИмяКонстанты].Тип;
	
	Если ТипЗнч(Значение) = Тип("Булево") Тогда
		Элементы.ТипПиктограмма.Подсказка = "Булево";
		ТипПиктограмма = 0;

	ИначеЕсли ТипЗнч(Значение) = Тип("Дата") Тогда
		Элементы.ТипПиктограмма.Подсказка = "Дата";
		ТипПиктограмма = 2;
		
	ИначеЕсли ТипЗнч(Значение) = Тип("Строка") Тогда
		Элементы.ТипПиктограмма.Подсказка = "Строка";
		ТипПиктограмма = 8;
		
	ИначеЕсли ТипЗнч(Значение) = Тип("Число") Тогда
		Элементы.ТипПиктограмма.Подсказка = "Число";
		ТипПиктограмма = 13;
		
	Иначе
		ТипПиктограмма = -1;	
	КонецЕсли;
		
КонецПроцедуры

&НаСервере
Процедура ЗаписатьЗначениеНаСервере()
	
	ИмяКонстанты = СтрЗаменить(Наименование, "Константа.", "");
	Константы[ИмяКонстанты].Установить(Значение);
		
КонецПроцедуры

#КонецОбласти